home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 023a / prop_man.zip / NEWRENT.SAB < prev    next >
Text File  |  1991-06-12  |  1KB  |  37 lines
  1. set messages off
  2. set error messages off
  3. set bell off
  4. label start
  5. cls
  6. display cp.dis
  7. write "NEWRENT.SAB" at 2,36
  8. write "Changing Rent In Current Master And Property Files" at 4,14
  9. fillin qaz using "Enter Add.Code (or  <ESC> ) ->  " at 6,20
  10.   if qaz = "" then ; goto end ; endif
  11. set v qaz1 to rent in property where add.code = .qaz
  12. set v qaz2 to rent in cur.mast where add.code = .qaz
  13. set v qaz3 to prorent in property where add.code = .qaz
  14. set v qaz4 to prorent in cur.mast where add.code = .qaz
  15. write "  Rent  " at 10,45
  16. write "Pro Rent" at 10,55
  17. write "Property File......... " at 12,20
  18. write "Current Master........ " at 13,20
  19. write .qaz1 at 12,45
  20. write .qaz2 at 13,45
  21. write .qaz3 at 12,55
  22. write .qaz4 at 13,55
  23. fillin zaq using "Enter New Rent Specifications  " at 15,20
  24.   if zaq = "" then ; goto start ; endif
  25. write "Changing RENT In Property And Current Master Files" at 19,16
  26. write "Please  Wait" at 20,34
  27.   change rent to .zaq in property where add.code = .qaz
  28.   change prorent to .zaq in property where add.code = .qaz
  29.   change prorent to .zaq in cur.mast where add.code = .qaz
  30.   change prorent to .zaq in unoccup whe add.code = .qaz
  31.   change rent to .zaq in unoccup whe add.code = .qaz
  32. goto start
  33. label end
  34.   cls
  35.   return
  36.  
  37.